From 577d03d57f1fa86dd7536995c0506f752ba1da81 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 17 Mar 1993 07:59:09 +0000 Subject: [PATCH] (Fprocess_send_eof): Make sure proc is running. --- src/process.c | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/process.c b/src/process.c index 31613f30769..a3e10411874 100644 --- a/src/process.c +++ b/src/process.c @@ -2568,6 +2568,13 @@ nil, indicating the current buffer's process.") Lisp_Object proc; proc = get_process (process); + + /* Make sure the process is really alive. */ + if (! NILP (XPROCESS (proc)->raw_status_low)) + update_status (XPROCESS (proc)); + if (! EQ (XPROCESS (proc)->status, Qrun)) + error ("Process %s not running", procname); + /* Sending a zero-length record is supposed to mean eof when TIOCREMOTE is turned on. */ #ifdef DID_REMOTE -- 2.30.2